home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / intro.dxr / 00018_gms wait.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  264 b   |  14 lines
  1. on exitFrame
  2.   global gLastSoundChannel
  3.   repeat while soundBusy(gLastSoundChannel)
  4.     if the mouseDown then
  5.       stopsound(gLastSoundChannel)
  6.       go(the frame + 1)
  7.       exit
  8.       next repeat
  9.     end if
  10.     go(the frame)
  11.   end repeat
  12.   go(the frame + 1)
  13. end
  14.